1 POKE53281,1:PRINTCHR$(14)"[147][151] [198][201][204][197] [196][210][193][215][197][210] 4.5 -- [193] [196][193][212][193][194][193][211][197] [205][193][206][193][199][197][210]"
2 PRINT" [211]AVE UP TO 300 RECORDS, 8 FIELDS EACH."
3 PRINT" [211][200][193][210][197][215][193][210][197]: [208]LEASE SEND $2 TO AUTHOR:    [211]. [202]. [212]AKIS"
4 PRINT" 1900 [194]URKLEY [210]D.":PRINT" [215]ILLIAMSTON, [205][201] 48895":GOTO60000
5 DIMS$(300):LM=0
6 POKE198,0:PRINT"[147]":GOTO60005
7 POKE198,0:GOTO60007
8 POKE198,0:GOTO60008
9 READ R$,R:FORT=1TOR:READF$(T):NEXT
20 PRINTCHR$(14)CHR$(8):POKE53281,0:POKE53280,0:PRINT"[155]"
25 PRINTCHR$(14)CHR$(8):POKE53281,0:POKE53280,0:PRINT"[155]"
26 PRINT"[147]V4.5          [198]ILE [196]RAWER:
27 [153]""[163](38[171][195](R$))[173]2)"OR";:[129]L[178]1[164][195](R$):[153]"TAN";:[130]L:[153]"^
28 PRINTTAB((38-LEN(R$))/2)"[221]"R$"[146][221]
29 [153][163](38[171][195](R$))[173]2)"/";:[129]L[178]1[164][195](R$):[153]"TAN";:[130]L:[153]"EXP
30 PRINT"[158]     1) [211]CAN [210]ECORDS":PRINT"     2) [211]EARCH
31 [153]"     3) ATNDD (null)ECORD":[153]"     4) (null)AILING (null)ABELS (1ST ASCOUR ASCIELDS)"
32 [153]"     5) (null)EPORT ((null)ORT)":[153]"     6) (null)ATN(null)VAL (null)(null)STR$ATN(null)VALWAIT (STR$O PEEKEFORE (null)UITTING)"
33 [153]"     7) STR$ISK STR$IRECTORY":[153]"     8) (null)UIT
34 PRINT"     [205]EMORY BYTES AVAILABLE[146]:";FRE(0)
36 POKE198,0
37 GETK$:IFK$=""THEN37
38 IFVAL(K$)<1ORVAL(K$)>8THEN37
40 K=VAL(K$):ONKGOSUB50,300,500,425,600,900,8000,47
45 GOTO 25
47 PRINT"[147]"CHR$(9):END
50 REM ----
51 REM SCAN
52 REM ----
55 INPUT"[147][211]TART SCAN AT WHICH RECORD";SC
57 IFSC=0THENRETURN
58 PRINT"[211]CANNING..."
60 GOSUB250
65 GOSUB100:IFABS(A)<SCTHEN65
67 IFA$="END OF DATA"THENGOSUB250:GOTO25
70 GOSUB150
75 GOTO65
100 REM -----------
101 REM READ RECORD
102 REM -----------
105 READA$:READA
110 IFA$="[166]"THENRETURN
112 IFA$="END OF DATA"THENRETURN
115 FORT=1TOR:READA$(T):NEXT
120 RETURN
150 REM --------------------
151 REM PUT RECORD ON SCREEN
152 REM --------------------
153 E=0:IFA$="[166]"THEN PRINT"[147][210]ECORD "ABS(A)" [197][205][208][212][217]":E=1:GOTO180
155 PRINT"[147][158] [210]ECORD: [155]"ABS(A)""
160 FORT=1TOR:PRINT"[158]"F$(T)": [155]";:PRINTA$(T):NEXT
165 PRINT"[158]  1) [196]ELETE"
170 PRINT"  2) [197]DIT"
175 PRINT"  3) [208]RINT"
180 PRINT"  4) [195]ONTINUE
185 [153]"  5) (null)AIN (null)ENU
188 GETK$:IFVAL(K$)<1ORVAL(K$)>5THEN188
190 IFE=1THENIFVAL(K$)<4THEN188
191 IFK$="1"THENGOSUB200
192 IFK$="2"THENGOSUB550
193 IFK$="3"THENGOSUB350
194 IFK$="4"THENRETURN
195 IFK$="5"THEN25
196 RETURN
200 REM -------------
201 REM DELETE RECORD
202 REM -------------
205 PRINT"[144][147]":Z=ABS(A)*10+1000:PRINTZ"DATA"CHR$(34)"[166]"CHR$(34)","A
210 FORT=Z+1TOZ+R:PRINTT:NEXT:PRINT"RUN"
215 PRINT"[155][196]ELETING [201]TEM: "ABS(A)"[144]"
220 REM ---------------
221 REM CREATE NEW DATA
222 REM ---------------
225 IFFRE(0)<650THEN PRINT"[147][196]ATABASE IS FULL, NEW DATA NOT ADDED!!!":GOTO230
227 GOTO245
230 PRINT"[208]RESS ANY KEY TO CONTINUE."
235 GETK$:IFK$=""THEN235
245 POKE198,10:FORT=0TO9:POKE631+T,13:NEXT:END
250 REM -------
251 REM RESTORE
252 REM -------
255 RESTORE
257 READB$:IFB$<>"[220]"THEN257
259 RETURN
300 REM ------
301 REM SEARCH
302 REM ------
303 SR=0
305 INPUT"[147][211]EARCH FOR: ";SR$
310 GOSUB 250:REM RESTORE
312 PRINT"[211]EARCHING..."
315 READ A$,A
320 IF A$="[166]"THEN315
325 IF A$="END OF DATA"THEN RETURN
330 FORT=1TOR:READA$(T)
335 IF LEFT$(A$(T),LEN(SR$))=SR$THENSR=1
340 NEXT:IFSR=1THENGOSUB150:REM SCREEN
345 SR=0:GOTO315
350 REM ------------
351 REM PRINT RECORD
352 REM ------------
355 PRINT"[208]REPARE [208]RINTER."
365 PRINT"1) [208]RINT [197]NTIRE [210]ECORD":PRINT"2) [208]RINT [205]AIL [204]ABEL (1ST 4 [198]IELDS)
367 [161]K$:[139]K$[178]""[167]367
368 [139]K$[178][199](13)[167][142]
369 [139]K$[178]"2"[167]400
370 [139]K$[179][177]"1"[167]367
375 [159]4,4,7:[157]4
380 [129]T[178]1[164]R:[152]4,A$(T):[130]
385 [152]4:[160]4:[142]
400 [143] -----------
401 [143] PRINT LABEL
402 [143] -----------
405 [153]"RIGHT$F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE END
406 PRINT"OF THE TOP LINE OF THE LABEL? Y[146] OR N"
407 GETKS$:IFKS$=""THEN407
408 FORX=1TOLEN(A$(1)):IFMID$(A$(1),X,1)=" "THENAA$=LEFT$(A$(1),X):X=LEN(A$(1))
409 NEXT:X=LEN(A$(1))-LEN(AA$):IFKS$="Y"THENA$(1)=RIGHT$(A$(1),X)+" "+AA$
410 IF FS=1THENRETURN
412 OPEN4,4,7:CMD4
415 FORT=1TO4:PRINT#4,A$(T):NEXT
420 PRINT#4:CLOSE4:RETURN
425 REM ------------
426 REM PRINT LABELS
427 REM ------------
428 CJ=1:PRINT"[208]REPARE PRINTER."
429 PRINT"[205]AILING [204]ABELS CONSIST OF THE FIRST     FOUR FIELDS."
430 PRINT"(E.G. [206]AME, [193]DDRESS, [195]ITY, [211]TATE)
433 [153]"RIGHT$F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE END
435 PRINT"OF THE TOP LINE OF THE LABEL? Y[146] OR N"
436 GETKS$:IFKS$=""THEN436
437 IFKS$=CHR$(13)THEN449
438 GOSUB636:PRINT"[200]OLD DOWN '[211]' TO STOP PRINTING."
440 GOSUB250
442 GOSUB100:IFA$="[166]"THEN442
444 GETH$:IFH$="S"THEN449
446 IFA$="END OF DATA"THEN449
447 IFLM=1THENIFLEFT$(A$(SE),LEN(NS$))<>NS$THEN442
448 GOSUB408:GOTO442
449 LM=0:N$="":CJ=0:RETURN
500 REM ----------
501 REM ADD RECORD
502 REM ----------
503 PRINT"[147][197]NTER NEW RECORD NUMBER OR PRESS [210][197][212][213][210][206] TO SEARCH FOR AN EMPTY RECORD."
504 INPUTA:IFA<1THEN508
505 IFA>300THEN504
506 PRINT"[147][158]([206][207][212][197]: [212]HIS WILL ERASE ANY CURRENT      RECORD IN THIS LOCATION.)"
507 GOTO515
508 PRINT"[147][204]OOKING FOR AN EMPTY RECORD..."
509 RESTORE
510 READ A$
512 IFA$="END OF DATA"THENPRINT"[147][196][193][212][193][194][193][211][197] [198][213][204][204]!":FORT=1TO3000:NEXT:GOTO25
513 IFA$<>"[166]"THEN510
514 READA:PRINT"[147]"
515 PRINT"[212]RY NOT TO USE COMMAS OR COLONS IN AN"
520 PRINT"ENTRY, BUT IF YOU MUST, BEGIN LINE WITH QUOTATION MARK--("CHR$(34)")"
522 PRINT"[204]IMIT ENTRIES TO 67 CHARACTERS!"
525 PRINT"[158][210]ECORD: [155]"ABS(A)"":FORT=1TOR:PRINT"[158]"F$(T)":[155]";
527 INPUTD$(T):PRINT
530 IFD$(1)=""THENT=R:NEXT:GOTO25
532 IFLEN(D$(1))>67THEND$(1)="":PRINT"[158][197]NTRY TOO LONG, PLEASE REDO.[155]":GOTO527
535 NEXT:D$(0)="XX"+CHR$(34)+","+STR$(A):Z=ABS(A)*10+1000:K=0:PRINT"[144][147]"
540 FORT=ZTOZ+R:PRINTT"DATA"CHR$(34)D$(K):K=K+1:NEXT:PRINT "RUN"
545 PRINT"[155][193]DDING [201]TEM: "ABS(A)"[144]":GOTO220
550 REM ----
551 REM EDIT
552 REM ----
553 PRINT"[147][210]ECORD :"ABS(A)"":FORI=1TOR:PRINT"  "A$(I):NEXT
555 PRINT"[197]DIT ERRORS THEN PRESS [210][197][212][213][210][206].":FORT=1TOR:INPUTA$(T)
560 NEXT:A$(0)="XX"+CHR$(34)+","+STR$(A):Z=ABS(A)*10+1000:K=0:PRINT"[144][147]"
565 FORT=ZTOZ+R:PRINTT"DATA"CHR$(34)A$(K):K=K+1:NEXT:PRINT "RUN"
570 PRINT"[155][205]AKING CORRECTIONS.[144]":GOTO220
597 REM ----
598 REM SORT
599 REM ----
600 IFPEEK(49152)=32THEN618
602 PRINT"[147][204]OADING SORT PROGRAM..."
604 I=49152
606 READCK$:IFCK$="[214]"THEN610
608 GOTO606
610 READSO:IFSO=256THEN616
612 POKEI,SO:I=I+1
614 GOTO610
616 RESTORE
618 REM
620 PRINT"[147][215]HICH FIELD DO YOU WANT SORTED?"
622 FORI=1TOR:PRINTTAB(5)I"[157]) "F$(I):NEXT
624 POKE198,0
626 GETK$:IFK$=""THEN626
628 IFVAL(K$)<1ORVAL(K$)>RTHEN624
630 F=VAL(K$)
632 NS$=F$(F)
636 LM=0:PRINT"[196]O YOU WANT TO SPECIFY A LIMITATION?"
638 POKE198,0
640 GETK$:IFK$=""THEN640
641 IFK$="Y"THENGOSUB800
642 IFCJ=1THENRETURN
643 GOSUB7000
644 PRINT"[147][211]ORTING.  [208]LEASE WAIT."
646 READC$
648 IFC$="END OF DATA"THEN662
650 IFC$="XX"THEN654
652 GOTO646
654 READD:D=ABS(D):FORFF=1TOR:READFF$(FF):FF$(FF)=FF$(FF)+"                    "
655 FF$(FF)=FF$(FF)+"                                  ":NEXT
656 S$(D)=LEFT$(FF$(F),W(0))+" "+LEFT$(FF$(M(1)),W(1))+" "+LEFT$(FF$(M(2)),W(2))
657 S$(D)=S$(D)+" "+LEFT$(FF$(M(3)),W(3))
658 IFLM=1THENIFLEFT$(FF$(SE),LEN(NS$))<>NS$THENS$(D)=""
660 GOTO646
662 SYS49152,D,S$(1)
663 FORT=1TO3:M(T)=0:NEXT
664 PRINT"[147]   [215]HERE DO YOU WANT THE LIST PRINTED?"
666 PRINTTAB(7)"1. [211]CREEN      2. [208]RINTER"
668 POKE198,0
670 GETK$:IFK$=""THEN670
671 IFVAL(K$)<1ORVAL(K$)>2THEN668
672 O=VAL(K$)
673 IFO=1THEN676
676 PRINTTAB(6)"[208]RESS '[208]' TO BEGIN PRINTING."
678 PRINT"  [196]URING LIST, YOU MAY PRESS [211][208][193][195][197][146] TO"
680 PRINT"  PAUSE AND RESUME.  [208]RESSING '[193]' WILL    ABORT THE LISTING."
684 IFO=1THEN690
686 PRINT"  [205]AKE SURE PRINTER IS READY."
688 OPEN4,4,7
690 GETK$:IFK$<>"P"THEN690
691 FS=0:IFO=2THENFS=1
692 PRINT
694 IFO=2THENPRINT#4,NS$;:PRINT#4,SPC(ABS(W(0)-LEN(NS$)+1))
695 IFO=2THENFORL=1TO3:PRINT#4,PF$(L);:PRINT#4,SPC(ABS(W(L)-LEN(PF$(L))+1));:NEXTL
696 IFO=2THENPRINT#4:FORL=1TO79:PRINT#4,"-";:NEXTL:PRINT#4
697 PRINTNS$;:PRINTSPC(ABS(W(0)-LEN(NS$)+1))
698 FORL=1TO3:PRINTPF$(L);:PRINTSPC(ABS(W(L)-LEN(PF$(L))+1));:NEXTL:PRINT
699 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
700 FORI=1TOD:POKE198,0
702 IFO=2THENIFS$(I)=""THENNEXTI
704 IFO=2THENXL=LEN(S$(I))-6:A$(1)=LEFT$(S$(I),XL):GOSUB408
705 IFO=2THENPRINT#4,S$(I)
706 IFS$(I)=""THENNEXTI
707 PRINTS$(I):IFO=1THENFORT=1TO200:NEXTT
708 GETKK$:IFKK$="A"THENI=D:GOTO712
710 IFKK$=" "THENWAIT198,1
712 NEXTI:IFO=2THENPRINT#4:CLOSE4
714 PRINT" [211]ORT COMPLETED.  [215]ANT TO SEE IT AGAIN?"
716 POKE198,0
718 GETK$:IFK$=""THEN718
720 IFK$="Y"THEN662
722 IFK$="N"THENCLOSE4:RUN
724 GOTO716
800 REM ---------------
801 REM SORT LIMITATION
802 REM ---------------
804 LM=1:PRINT"[215]HICH FIELD DO YOU WANT THE LIMITATION  TO COME FROM?"
806 FORI=1TOR:PRINTTAB(5)I"[157]) "F$(I):NEXT
808 POKE198,0
810 GETK$:IFK$=""THEN810
812 IFVAL(K$)<1ORVAL(K$)>RTHEN810
814 SE=VAL(K$)
816 PRINT"[208]LEASE ENTER SEARCH STRING FOR THE      LIMITATION:"
818 INPUTNS$
820 RETURN
900 REM -----------
901 REM SAVE UPDATE
902 REM -----------
905 PRINT"[147][211]AVING UPDATE."
907 PRINT"[208]LEASE WAIT UNTIL THE DISK DRIVE IS     DONE WORKING."
910 OPEN15,8,15,"S0:"+R$
915 CLOSE15:SAVER$,8
920 IFST<>0THENPRINT"[213][208][196][193][212][197] [206][207][212] [211][193][214][197][196]!":PRINT"[196]ISK [197]RROR!"
925 IFST<>0THENPRINT"[208]RESS A KEY TO RETURN TO MENU."
927 IFST<>0THENGETK$:IFK$=""THEN927
930 RETURN
997 REM --------------
998 REM RECORD STORAGE
999 REM --------------
1000 DATA"[220]"
1010 DATA"[166]",- 1
1020 DATA"[166]",- 2
1030 DATA"[166]",- 3
1040 DATA"[166]",- 4
1050 DATA"[166]",- 5
1060 DATA"[166]",- 6
1070 DATA"[166]",- 7
1080 DATA"[166]",- 8
1090 DATA"[166]",- 9
1100 DATA"[166]",- 10
1110 DATA"[166]",- 11
1120 DATA"[166]",- 12
1130 DATA"[166]",- 13
1140 DATA"[166]",- 14
1150 DATA"[166]",- 15
1160 DATA"[166]",- 16
1170 DATA"[166]",- 17
1180 DATA"[166]",- 18
1190 DATA"[166]",- 19
1200 DATA"[166]",- 20
1210 DATA"[166]",- 21
1220 DATA"[166]",- 22
1230 DATA"[166]",- 23
1240 DATA"[166]",- 24
1250 DATA"[166]",- 25
1260 DATA"[166]",- 26
1270 DATA"[166]",- 27
1280 DATA"[166]",- 28
1290 DATA"[166]",- 29
1300 DATA"[166]",- 30
1310 DATA"[166]",- 31
1320 DATA"[166]",- 32
1330 DATA"[166]",- 33
1340 DATA"[166]",- 34
1350 DATA"[166]",- 35
1360 DATA"[166]",- 36
1370 DATA"[166]",- 37
1380 DATA"[166]",- 38
1390 DATA"[166]",- 39
1400 DATA"[166]",- 40
1410 DATA"[166]",- 41
1420 DATA"[166]",- 42
1430 DATA"[166]",- 43
1440 DATA"[166]",- 44
1450 DATA"[166]",- 45
1460 DATA"[166]",- 46
1470 DATA"[166]",- 47
1480 DATA"[166]",- 48
1490 DATA"[166]",- 49
1500 DATA"[166]",- 50
1510 DATA"[166]",- 51
1520 DATA"[166]",- 52
1530 DATA"[166]",- 53
1540 DATA"[166]",- 54
1550 DATA"[166]",- 55
1560 DATA"[166]",- 56
1570 DATA"[166]",- 57
1580 DATA"[166]",- 58
1590 DATA"[166]",- 59
1600 DATA"[166]",- 60
1610 DATA"[166]",- 61
1620 DATA"[166]",- 62
1630 DATA"[166]",- 63
1640 DATA"[166]",- 64
1650 DATA"[166]",- 65
1660 DATA"[166]",- 66
1670 DATA"[166]",- 67
1680 DATA"[166]",- 68
1690 DATA"[166]",- 69
1700 DATA"[166]",- 70
1710 DATA"[166]",- 71
1720 DATA"[166]",- 72
1730 DATA"[166]",- 73
1740 DATA"[166]",- 74
1750 DATA"[166]",- 75
1760 DATA"[166]",- 76
1770 DATA"[166]",- 77
1780 DATA"[166]",- 78
1790 DATA"[166]",- 79
1800 DATA"[166]",- 80
1810 DATA"[166]",- 81
1820 DATA"[166]",- 82
1830 DATA"[166]",- 83
1840 DATA"[166]",- 84
1850 DATA"[166]",- 85
1860 DATA"[166]",- 86
1870 DATA"[166]",- 87
1880 DATA"[166]",- 88
1890 DATA"[166]",- 89
1900 DATA"[166]",- 90
1910 DATA"[166]",- 91
1920 DATA"[166]",- 92
1930 DATA"[166]",- 93
1940 DATA"[166]",- 94
1950 DATA"[166]",- 95
1960 DATA"[166]",- 96
1970 DATA"[166]",- 97
1980 DATA"[166]",- 98
1990 DATA"[166]",- 99
2000 DATA"[166]",- 100
2010 DATA"[166]",- 101
2020 DATA"[166]",- 102
2030 DATA"[166]",- 103
2040 DATA"[166]",- 104
2050 DATA"[166]",- 105
2060 DATA"[166]",- 106
2070 DATA"[166]",- 107
2080 DATA"[166]",- 108
2090 DATA"[166]",- 109
2100 DATA"[166]",- 110
2110 DATA"[166]",- 111
2120 DATA"[166]",- 112
2130 DATA"[166]",- 113
2140 DATA"[166]",- 114
2150 DATA"[166]",- 115
2160 DATA"[166]",- 116
2170 DATA"[166]",- 117
2180 DATA"[166]",- 118
2190 DATA"[166]",- 119
2200 DATA"[166]",- 120
2210 DATA"[166]",- 121
2220 DATA"[166]",- 122
2230 DATA"[166]",- 123
2240 DATA"[166]",- 124
2250 DATA"[166]",- 125
2260 DATA"[166]",- 126
2270 DATA"[166]",- 127
2280 DATA"[166]",- 128
2290 DATA"[166]",- 129
2300 DATA"[166]",- 130
2310 DATA"[166]",- 131
2320 DATA"[166]",- 132
2330 DATA"[166]",- 133
2340 DATA"[166]",- 134
2350 DATA"[166]",- 135
2360 DATA"[166]",- 136
2370 DATA"[166]",- 137
2380 DATA"[166]",- 138
2390 DATA"[166]",- 139
2400 DATA"[166]",- 140
2410 DATA"[166]",- 141
2420 DATA"[166]",- 142
2430 DATA"[166]",- 143
2440 DATA"[166]",- 144
2450 DATA"[166]",- 145
2460 DATA"[166]",- 146
2470 DATA"[166]",- 147
2480 DATA"[166]",- 148
2490 DATA"[166]",- 149
2500 DATA"[166]",- 150
2510 DATA"[166]",- 151
2520 DATA"[166]",- 152
2530 DATA"[166]",- 153
2540 DATA"[166]",- 154
2550 DATA"[166]",- 155
2560 DATA"[166]",- 156
2570 DATA"[166]",- 157
2580 DATA"[166]",- 158
2590 DATA"[166]",- 159
2600 DATA"[166]",- 160
2610 DATA"[166]",- 161
2620 DATA"[166]",- 162
2630 DATA"[166]",- 163
2640 DATA"[166]",- 164
2650 DATA"[166]",- 165
2660 DATA"[166]",- 166
2670 DATA"[166]",- 167
2680 DATA"[166]",- 168
2690 DATA"[166]",- 169
2700 DATA"[166]",- 170
2710 DATA"[166]",- 171
2720 DATA"[166]",- 172
2730 DATA"[166]",- 173
2740 DATA"[166]",- 174
2750 DATA"[166]",- 175
2760 DATA"[166]",- 176
2770 DATA"[166]",- 177
2780 DATA"[166]",- 178
2790 DATA"[166]",- 179
2800 DATA"[166]",- 180
2810 DATA"[166]",- 181
2820 DATA"[166]",- 182
2830 DATA"[166]",- 183
2840 DATA"[166]",- 184
2850 DATA"[166]",- 185
2860 DATA"[166]",- 186
2870 DATA"[166]",- 187
2880 DATA"[166]",- 188
2890 DATA"[166]",- 189
2900 DATA"[166]",- 190
2910 DATA"[166]",- 191
2920 DATA"[166]",- 192
2930 DATA"[166]",- 193
2940 DATA"[166]",- 194
2950 DATA"[166]",- 195
2960 DATA"[166]",- 196
2970 DATA"[166]",- 197
2980 DATA"[166]",- 198
2990 DATA"[166]",- 199
3000 DATA"[166]",- 200
3010 DATA"[166]",- 201
3020 DATA"[166]",- 202
3030 DATA"[166]",- 203
3040 DATA"[166]",- 204
3050 DATA"[166]",- 205
3060 DATA"[166]",- 206
3070 DATA"[166]",- 207
3080 DATA"[166]",- 208
3090 DATA"[166]",- 209
3100 DATA"[166]",- 210
3110 DATA"[166]",- 211
3120 DATA"[166]",- 212
3130 DATA"[166]",- 213
3140 DATA"[166]",- 214
3150 DATA"[166]",- 215
3160 DATA"[166]",- 216
3170 DATA"[166]",- 217
3180 DATA"[166]",- 218
3190 DATA"[166]",- 219
3200 DATA"[166]",- 220
3210 DATA"[166]",- 221
3220 DATA"[166]",- 222
3230 DATA"[166]",- 223
3240 DATA"[166]",- 224
3250 DATA"[166]",- 225
3260 DATA"[166]",- 226
3270 DATA"[166]",- 227
3280 DATA"[166]",- 228
3290 DATA"[166]",- 229
3300 DATA"[166]",- 230
3310 DATA"[166]",- 231
3320 DATA"[166]",- 232
3330 DATA"[166]",- 233
3340 DATA"[166]",- 234
3350 DATA"[166]",- 235
3360 DATA"[166]",- 236
3370 DATA"[166]",- 237
3380 DATA"[166]",- 238
3390 DATA"[166]",- 239
3400 DATA"[166]",- 240
3410 DATA"[166]",- 241
3420 DATA"[166]",- 242
3430 DATA"[166]",- 243
3440 DATA"[166]",- 244
3450 DATA"[166]",- 245
3460 DATA"[166]",- 246
3470 DATA"[166]",- 247
3480 DATA"[166]",- 248
3490 DATA"[166]",- 249
3500 DATA"[166]",- 250
3510 DATA"[166]",- 251
3520 DATA"[166]",- 252
3530 DATA"[166]",- 253
3540 DATA"[166]",- 254
3550 DATA"[166]",- 255
3560 DATA"[166]",- 256
3570 DATA"[166]",- 257
3580 DATA"[166]",- 258
3590 DATA"[166]",- 259
3600 DATA"[166]",- 260
3610 DATA"[166]",- 261
3620 DATA"[166]",- 262
3630 DATA"[166]",- 263
3640 DATA"[166]",- 264
3650 DATA"[166]",- 265
3660 DATA"[166]",- 266
3670 DATA"[166]",- 267
3680 DATA"[166]",- 268
3690 DATA"[166]",- 269
3700 DATA"[166]",- 270
3710 DATA"[166]",- 271
3720 DATA"[166]",- 272
3730 DATA"[166]",- 273
3740 DATA"[166]",- 274
3750 DATA"[166]",- 275
3760 DATA"[166]",- 276
3770 DATA"[166]",- 277
3780 DATA"[166]",- 278
3790 DATA"[166]",- 279
3800 DATA"[166]",- 280
3810 DATA"[166]",- 281
3820 DATA"[166]",- 282
3830 DATA"[166]",- 283
3840 DATA"[166]",- 284
3850 DATA"[166]",- 285
3860 DATA"[166]",- 286
3870 DATA"[166]",- 287
3880 DATA"[166]",- 288
3890 DATA"[166]",- 289
3900 DATA"[166]",- 290
3910 DATA"[166]",- 291
3920 DATA"[166]",- 292
3930 DATA"[166]",- 293
3940 DATA"[166]",- 294
3950 DATA"[166]",- 295
3960 DATA"[166]",- 296
3970 DATA"[166]",- 297
3980 DATA"[166]",- 298
3990 DATA"[166]",- 299
4000 DATA"[166]",- 300
4010 DATA"END OF DATA",-301
7000 REM ----------------
7001 REM SPECIAL PRINTOUT
7002 REM ----------------
7005 FORT=0TO3:W(T)=0:NEXTT
7010 PRINT"[147][215]OULD YOU LIKE OTHER FIELDS PRINTED     ALONGSIDE?  (Y[146] OR N[146])"
7020 GETK$:IFK$=""THEN7020
7030 IFK$="Y"THENMM=1:GOTO7050
7035 W(0)=36
7040 RETURN
7050 INPUT"[200]OW WIDE DO YOU WANT THE SORT COLUMN";W(0)
7052 FORT=1TOR:PRINTT"[157]) "F$(T):NEXT
7055 PRINT"[217]OU MAY CHOOSE UP TO 3 FIELDS,          PRESS [210][197][212][213][210][206] FOR NO FIELD."
7060 FORT=1TO3:PRINT"[215]HICH FIELD? "
7070 GETK$:IFK$=""THEN7070
7075 IFK$=CHR$(13)THENM=0
7080 M=VAL(K$):IFM<0ORM>RTHEN7070
7085 PF$(T)=F$(M)
7090 PRINTM:M(T)=M
7092 INPUT"[200]OW WIDE DO YOU WANT THIS COLUMN";W(T)
7095 NEXTT
7097 IFW(0)+W(1)+W(2)+W(3)>80THENPRINT"TOTAL WIDTHS MUST BE LESS THAN 80!":GOTO7050
7100 RETURN
7999 REM --------------
8000 REM DISK DIRECTORY
8001 REM --------------
8010 PRINT"[147]";
8015 OPEN15,8,15,"I0"
8020 OPEN2,8,0,"$0:*"
8040 GET#2,A$,A$
8050 GET#2,A$,B$,C$,D$
8060 C=0:IFC$<>""THENC=ASC(C$)
8070 IFD$<>""THENC=C+ASC(D$)*256
8080 GET#2,A$:IFST<>0THEN8200
8090 PRINTC;A$;
8100 GET#2,A$:IFA$<>""THENPRINTA$;:GOTO8100
8110 PRINT:GOTO8050
8200 CLOSE2:CLOSE15
8210 PRINT"[158][208]RESS ANY KEY";
8220 GETA$:IFA$=""THEN8220
8230 RETURN
49000 REM ---------
49001 REM SORT DATA
49002 REM ---------
49003 REM LIGHTNING SORT COPYRIGHT
49004 REM COMPUTE! PUBLICATIONS
49005 REM
49152 DATA "[214]",32,253,174,32,158,173
49158 DATA 32,247,183,165,20,133
49164 DATA 253,165,21,133,254,32
49170 DATA 253,174,32,158,173,162
49176 DATA 1,165,71,157,85,193
49182 DATA 157,125,193,165,72,157
49188 DATA 105,193,157,145,193,165
49194 DATA 253,208,2,198,254,198
49200 DATA 253,160,3,24,189,125
49206 DATA 193,101,253,157,125,193
49212 DATA 189,145,193,101,254,157
49218 DATA 145,193,136,208,236,189
49224 DATA 85,193,133,80,189,105
49230 DATA 193,133,81,189,125,193
49236 DATA 133,82,189,145,193,133
49242 DATA 83,32,21,193,144,4
49248 DATA 202,208,228,96,165,82
49254 DATA 133,78,165,83,133,79
49260 DATA 160,2,177,78,153,250
49266 DATA 0,136,16,248,48,11
49272 DATA 24,165,80,105,3,133
49278 DATA 80,144,2,230,81,160
49284 DATA 2,177,80,153,247,0
49290 DATA 136,16,248,32,32,193
49296 DATA 144,230,56,165,82,233
49302 DATA 3,133,82,176,2,198
49308 DATA 83,32,21,193,176,31
49314 DATA 160,2,177,82,153,247
49320 DATA 0,136,16,248,32,32
49326 DATA 193,176,225,160,2,177
49332 DATA 80,145,82,185,247,0
49338 DATA 145,80,136,16,244,48
49344 DATA 183,160,2,177,80,145
49350 DATA 78,185,250,0,145,80
49356 DATA 136,16,244,24,189,85
49362 DATA 193,125,125,193,133,82
49368 DATA 189,105,193,125,145,193
49374 DATA 133,83,102,83,102,82
49380 DATA 32,21,193,176,22,189
49386 DATA 85,193,157,86,193,189
49392 DATA 105,193,157,106,193,32
49398 DATA 53,193,232,32,69,193
49404 DATA 76,71,192,189,125,193
49410 DATA 157,126,193,189,145,193
49416 DATA 157,146,193,32,69,193
49422 DATA 232,32,53,193,76,71
49428 DATA 192,165,81,197,83,208
49434 DATA 4,165,80,197,82,96
49440 DATA 160,255,200,196,247,176
49446 DATA 11,196,250,176,6,177
49452 DATA 248,209,251,240,241,96
49458 DATA 196,250,96,24,165,80
49464 DATA 105,3,157,85,193,165
49470 DATA 81,105,0,157,105,193
49476 DATA 96,56,165,80,233,3
49482 DATA 157,125,193,165,81,233
49488 DATA 0,157,145,193,96,256
60000 PRINT"[212]HIS PROGRAM CREATES THE DATABASE AND ISNOT A DATABASE ITSELF."
60001 PRINT"[197]NTER A TITLE FOR THE DATABASE:":INPUTT$
60002 INPUT"[200]OW MANY FIELDS PER RECORD (1-8)";R:IFR>8THEN60002
60003 PRINT"[147]":PRINT"1REM FILE DRAWER -- BY S.J. TAKIS":PRINT2:PRINT3
60004 PRINT"4R="R:PRINT"10 DATA"CHR$(34);T$;CHR$(34)","R:PRINT"RUN":GOTO220
60005 X=1:FORI=1TOR:PRINT"[151][206]AME OF FIELD "I;:INPUTW$(X):X=X+1:NEXT:PRINT"[147]"
60006 FORI=11TOR+10:PRINTI"DATA"CHR$(34)W$(I-10):NEXT:PRINT6:PRINT"RUN":GOTO220
60007 PRINT"[147]7":FORI=60000TO60007:PRINTI:NEXT:PRINT"RUN":GOTO220
60008 PRINT"[147]8":PRINT60008:PRINT60009:READT$:PRINT"SAVE"CHR$(34)T$CHR$(34)",8
60009 [153]"GOTO60010":[153]"(null)LEASE WAIT UNTIL DISK IS FINISHED...":[137]220
60010 [140]:[135]T$:[140]:[153]"LOAD(null)OUR DATABASE "[199](34)T$[199](34)
60011 [153]"HAS BEEN CREATED.":[151]198,0
60012 [153]"(null)RESS (null)VAL(null)(null)(null)(null) TO LOAD.":[153]"LOAD"[199](34)T$[199](34)",8ONONON":[162]